home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Utilities / TarChive / TapeLabel < prev    next >
Encoding:
Text File  |  1992-08-19  |  2.3 KB  |  82 lines
  1. #!/usr/local/bin/perl
  2. #Copyright 1992    Sherwood Botsford
  3.  
  4. #Structure:  Tape labels are actually a short tar file.  
  5. #    Tapes are registered in /usr/local/tapelabels. 
  6. #    The directory is world writable, 'sticky', so that only the owner can
  7. #    delete a file.  Tape labels are zero length files.
  8.  
  9. #    This file is contained in the first tar file on the tape.  
  10. #    Thus a gnutar +test can determine if the label on a tape corresponds to
  11. # the one  in the registry.
  12. # 
  13. # This first module creates an appropriate file in /usr/local/tapelabels
  14. # And writes the file out to tape.
  15. #
  16.  
  17. $newtape = $ARGV[0];
  18. if ($newtape eq "") {
  19.     print "\nsyntax: TapeLabel NameOfTape\n\n";
  20.     print "\tSuggest that NameOfTape include your name, and \n";
  21.     print "\tsomething of the nature of the contents of the tape.\n\n";
  22.     &Quit;
  23.     }
  24.  
  25. if ( -e "/usr/local/tapelabels/$newtape") {
  26.     print "\n\tA label of that name already exists.\n";
  27.     print "\tWe don't allow duplicate tape names. \n\n";
  28.     print "\tThe following names are currently registered:\n\n";
  29.     system "ls /usr/local/tapelabels";
  30.     print "\n";
  31.     &Quit;
  32.     }
  33. print "Will attempt to label this tape as $newtape\n";
  34.  
  35. require("TapeLibrary.perl");
  36.  
  37. #
  38. #     Attempt Read Volume label
  39. #
  40.     $tapelabel=&CheckVolumeLabel($Code);
  41.  
  42.     if ($Code == 100 ) {
  43.         print "This is already a registered tape.\n";
  44.         print "It is labeled, $tapelabel.\n";
  45.         print "You must erase it before you can relabel it. \n";
  46.         &Quit;
  47.         }
  48.     if ($Code == 102 ) {
  49.           print "The tape appears to have no label.  Proceeding. \n";
  50.         }
  51.     if ( $Code == 103 ) {
  52.           print "There appears to be data on this tape.\n";
  53.         print "See your sysadmin if you need to register it here.\n";
  54.         &Quit(103);
  55.         }
  56.     if ($Code == 104 ) {
  57.           print "Most Humble Apologies, but you do not own this tape.\n";
  58.         print "You must persuade the owner to erase it himself.\n";
  59.         &Quit(104);
  60.         }
  61.  
  62. #We attempted a read.  So rewind first.
  63.  
  64. &RewindTape;
  65.  
  66. # now actually write the label on the host, and on the tape
  67. print "Registering tape on server\n";
  68. system ("touch /usr/local/tapelabels/$newtape");
  69. print "Writing label on tape\n";
  70. system("gnutar -c -b16 -C /usr/local/tapelabels $newtape");
  71. if ($? != 0 ) {
  72.     print "Error on writing tape.  Cleaning up and exiting\n";
  73.     system "rm /usr/local/tapelabels/$newtape ";
  74.     &Quit;
  75.     }
  76. print "Tape has been labeled and registered as $newtape\n";
  77.  
  78. sub Quit {
  79. exit;
  80. }
  81. #
  82.